 
*FIGURE 3

cd "$data"
use "data1.dta", clear

eststo M1: regress shiftw6w7_LR i.partyid6, robust
margins, at(partyid6=(0 1 2 3)) post 

marginsplot, ///
    title("", size(3)) ///
    ytitle("predicted shift in left-right self-placement", size(3)) ///
    xtitle("") ///
    xlab(0 "independent" 1 "labour" 2 "conservative" 3 "other", labsize(small)) ///
    yline(0, lpattern(dash) lcolor(black)) ///
    plotopts(msymbol(circle) mcolor(cranberry%80) msize(small)) ///
    ciopts(lcolor(cranberry%80) lwidth(thin)) recast(scatter)  xscale(range(-0.2 3.2))
	
graph save "${figures}/Figure3.gph", replace 

